! 12.3.2013: copied to dak13_params.f95
! DO  NOT USE
module sys_setup_mod; implicit none;
integer, parameter:: R14 = selected_real_kind(14);

real(R14), parameter :: PI=DACOS(-1.D0);

real(R14), parameter :: ERR1 = 1.D-1;
real(R14), parameter :: ERR2 = 1.D-2;
real(R14), parameter :: ERR3 = 1.D-3;
real(R14), parameter :: ERR4 = 1.D-4;
real(R14), parameter :: ERR5 = 1.D-5;
real(R14), parameter :: ERR6 = 1.D-6;
real(R14), parameter :: ERR7 = 1.D-7;
real(R14), parameter :: ERR8 = 1.D-8;
real(R14), parameter :: ERR9 = 1.D-9;
real(R14), parameter :: ERR10 = 1.D-10;
real(R14), parameter :: ERR11 = 1.D-11;
real(R14), parameter :: ERR12 = 1.D-12;
real(R14), parameter :: ERR13 = 1.D-13;
real(R14), parameter :: ERR14 = 1.D-14;
real(R14), parameter :: ERR15 = 1.D-15;
real(R14), parameter :: MAX_ZERO = 1.D-32;

real(R14), parameter :: D0 = 0.D0;
real(R14), parameter :: D1 = 1.D0;
real(R14), parameter :: D2 = 2.D0;
real(R14), parameter :: D3 = 3.D0;
real(R14), parameter :: D4 = 4.D0;
real(R14), parameter :: D5 = 5.D0;
real(R14), parameter :: D6 = 6.D0;
real(R14), parameter :: D7 = 7.D0;
real(R14), parameter :: D8 = 8.D0;
real(R14), parameter :: D9 = 9.D0;
real(R14), parameter :: D10 = 10.D0;

real(R14), parameter :: D01 = 0.1D0;
real(R14), parameter :: D02 = 0.2D0;
real(R14), parameter :: D03 = 0.3D0;
real(R14), parameter :: D04 = 0.4D0;
real(R14), parameter :: D05 = 0.5D0;
real(R14), parameter :: D06 = 0.6D0;
real(R14), parameter :: D07 = 0.7D0;
real(R14), parameter :: D08 = 0.8D0;
real(R14), parameter :: D09 = 0.9D0;

end module